perm filename REF.POX[POX,WD]1 blob sn#363252 filedate 1978-06-18 generic text, type T, neo UTF8
\|\\;				Define Brick Character
\;
\⊂'000040;\;	VERREM - REM's syntax for defining macros with args 
\;
\	;\←'0;\→G\;	footnote numbers in notes
\	;\←'0;\→N\;	footnote numbers in text
\;	                Citation and Reference Macros
\;
\8CIT1(1)[\"[⊗1⊗\"]]\;
\8CIT2(1,2)[\"[⊗1⊗,⊗2⊗\"]]\;
\8CIT3(1,2,3)[\"[⊗1⊗,⊗2⊗,⊗3⊗\"]]\;
\8CIT4(1,2,3,4)[\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗\"]]\;
\8CIT5(1,2,3,4,5)[\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗,⊗5⊗\"]]\;
\8CIT6(1,2,3,4,5,6)[\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗,⊗5⊗,⊗6⊗\"]]\;
\8CIT7(1,2,3,4,5,6,7)[\N
\	;\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗,⊗5⊗,⊗6⊗,⊗7⊗\"]]\;
\8CIT8(1,2,3,4,5,6,7,8)[\N
\	;\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗,⊗5⊗,⊗6⊗,⊗7⊗,⊗8⊗\"]]\;
\8CIT9(1,2,3,4,5,6,7,8,9)[\N
\	;\"[⊗1⊗,⊗2⊗,⊗3⊗,⊗4⊗,⊗5⊗,⊗6⊗,⊗7⊗,⊗8⊗,⊗9⊗\"]]\;
\;
\8OBIND(N,A)[\oPSH[⊗A⊗]\∂⊗N⊗←PSH;]\8OPOP(N)[\∂PSH←⊗N⊗;\∂←PSH;]\;
\;
\8REF(I,TXT)[\QL\Qt\P\!OBIND(AA,(0⊗I⊗));\;
\     ;\1AA;\→t\2AA;\+t\→t\+L\→L\-t\→.⊗I⊗\J⊗TXT⊗\.
\     ;\!OPOP(AA);\p\qt\qL]\;
\;
\;
\∞FN[\P\←N\+=1;\→N\∩\#\F7\DN\G\⊗\p]\;
\;
\8NOTE(txt)[\P\←G\+=1;\→G\!FMTREF(\DG,(⊗txt⊗));\p]\;
\;